home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
001
/
versa11.arc
/
VERSA1.MNU
< prev
next >
Wrap
Text File
|
1987-05-23
|
14KB
|
512 lines
SELECT:
SWIT S1
CASE"404"
GOTO ATLANTA
ENDC
CASE"617"
GOTO BOSTON
ENDC
CASE"216"
GOTO CLEVELAN
ENDC
CASE"313"
GOTO DETROIT
ENDC
CASE"305"
GOTO MIAMI
ENDC
CASE"201"
GOTO NEWARK
ENDC
DEFA
ASSI S9"ERROR"
EXEC"VERSA.CMD"
ENDC
ENDS
ATLANTA:
CLEA
LOCA 2,0
MESS" ╒════════╡ Atlanta BBS Directory (404) ╞════════╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> GBBS │"
MESS" │ < 2> Flagship BBS │"
MESS" │ < 3> Atlanta PCUG Unprotects │"
MESS" │ < 4> T. J.'s │"
MESS" │ < 5> Kahn's BBS Artificial Intelligence │"
MESS" │ < 6> Southside BBS │"
MESS" │ < 7> Gumby's Place │"
MESS" │ < 8> La Chateau │"
MESS" │ < 9> │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"4576815"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"9346299"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"4330062"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"3921756"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"9346299"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"7670092"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"9396569"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"9877940"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9
ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"
BOSTON:
CLEA
LOCA 2,0
MESS" ╒═════════╡ Boston BBS Directory (617) ╞═════════╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> Boston Computer Society │"
MESS" │ < 2> Alpha Computer Society │"
MESS" │ < 3> Wonderland BBS │"
MESS" │ < 4> Harvard BBS │"
MESS" │ < 5> Microcom's MNP MNP Info │"
MESS" │ < 6> Boston Fog │"
MESS" │ < 7> PC Week FIDO │"
MESS" │ < 8> The Billboard │"
MESS" │ < 9> Northeastern Exchange │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"2373750"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"2292915"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"6653796"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"4984379"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"7699358"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"2884667"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"5361917"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"9658761"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"9653121"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9
ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"
CLEVELAN:
CLEA
LOCA 2,0
MESS" ╒═══════╡ Cleveland BBS Directory (216) ╞═══════╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> Cleveland RBBS │"
MESS" │ < 2> InfoGuide │"
MESS" │ < 3> InfoGuide (other line) │"
MESS" │ < 4> Micro-Chip │"
MESS" │ < 5> GCPCUG/JCU BBS │"
MESS" │ < 6> The Machine │"
MESS" │ < 7> Free-Net │"
MESS" │ < 8> Data-Term │"
MESS" │ < 9> Dog House │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"3313576"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"6213434"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"6213435"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"2256130"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"3974256"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"2521288"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"3683888"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"5623263"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"2510110"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9
ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"
DETROIT:
CLEA
LOCA 2,0
MESS" ╒════════╡ Detroit BBS Directory (313) ╞════════╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> PCUTIL │"
MESS" │ < 2> Freeform │"
MESS" │ < 3> East Area BBS │"
MESS" │ < 4> Microchip │"
MESS" │ < 5> 007's Computer Runway │"
MESS" │ < 6> Daedalus │"
MESS" │ < 7> Arcade │"
MESS" │ < 8> 23 Cutting Board │"
MESS" │ < 9> Bit Bucket │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"3930527"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"7747258"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"9496665"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"9496745"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"3488535"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"9331425"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"9788087"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"2917716"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"3430877"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9
ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"
MIAMI:
CLEA
LOCA 2,0
MESS" ╒═════════╡ Miami BBS Directory (305) ╞═════════╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> Adults Only II │"
MESS" │ < 2> Miami PC Network │"
MESS" │ < 3> Miami Users Group │"
MESS" │ < 4> The Kendall Switchboard │"
MESS" │ < 5> CompuSci Fido │"
MESS" │ < 6> Genesis BBS │"
MESS" │ < 7> John Galt Line │"
MESS" │ < 8> Miami Dade Fido │"
MESS" │ < 9> │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"5944526"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"9354964"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"6217534"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"2712146"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"7584871"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"8952998"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"2351645"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"3472970"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9
ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"
NEWARK:
CLEA
LOCA 2,0
MESS" ╒═════════╡ Newark BBS Directory (201) ╞═════════╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> Microsellar 120 Megabytes │"
MESS" │ < 2> Hotel California │"
MESS" │ < 3> SEA Board Home of ARC │"
MESS" │ < 4> Sparta Hard Disk Info │"
MESS" │ < 5> The Data Base 123, dBase, Framework │"
MESS" │ < 6> BOSS BBS │"
MESS" │ < 7> Shelter │"
MESS" │ < 8> Ed Gelb's │"
MESS" │ < 9> │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"2391346"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"3278245"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"6943348"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"7295377"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"9435419"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"5687293"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"7837458"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"6947425"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9
ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"